home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / SEATTLE.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  3.6 KB  |  164 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡   SEATTLE  NUMBERS  ╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - Puget Sound          ║"
  39.    MESSAGE "                         ║  2 - Bellview ROS         ║"
  40.    MESSAGE "                         ║  3 - Infinity Base $$     ║"
  41.    MESSAGE "                         ║  4 - Night Shift          ║"
  42.    MESSAGE "                         ║  5 - Underdogs Mininet    ║"
  43.    MESSAGE "                         ║  6 - Stop & Shop          ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.    LOCATE 17,40
  58.    MESSAGE  " "
  59.    LOCATE 17,40
  60.    GET S5 1
  61.  
  62.    SWITCH S5
  63.  
  64.       CASE "1"
  65.          ASSIGN S3 "Puget Sound"
  66.          ASSIGN S4 "2817661"
  67.       ENDCASE
  68.  
  69.       CASE "2"
  70.          ASSIGN S3 "Bellview ROS"
  71.          ASSIGN S4 "6414521"
  72.       ENDCASE
  73.  
  74.       CASE "3"
  75.          ASSIGN S3 "Infinity Base"
  76.          ASSIGN S4 "3299260"
  77.       ENDCASE
  78.  
  79.       CASE "4"
  80.          ASSIGN S3 "Night Shift"
  81.          ASSIGN S4 "4880924"
  82.       ENDCASE
  83.  
  84.       CASE "5"
  85.          ASSIGN S3 "UnderDogs Mininet"
  86.          ASSIGN S4 "7259233"
  87.       ENDCASE
  88.  
  89.       CASE "6"
  90.          ASSIGN S3 "Stop & Shop"
  91.          ASSIGN S4 "2482600"
  92.       ENDCASE
  93.  
  94.       CASE "M"
  95.          CLEAR
  96.          LOCATE 5,20
  97.          MESSAGE "NUMBER TO DIAL:"
  98.          LOCATE 5,36
  99.          ASSIGN S3 "MANUAL DIAL"
  100.          GET S4
  101.       ENDCASE
  102.  
  103.       CASE "Q"
  104.          CLEAR
  105.          TRANSMIT "!@!"
  106.          WAITFOR "@"
  107.          TRANSMIT "D!"
  108.          WAITFOR "@"
  109.          CLEAR
  110.          LOCATE 1,0
  111.          PAUSE 1
  112.          EXECUTE "INTRO.CMD"
  113.       ENDCASE
  114.  
  115.       DEFAULT
  116.          MESSAGE "^G"
  117.          LOCATE 17,40
  118.          GOTO BEGIN
  119.       ENDCASE
  120.  
  121. ENDSWITCH
  122.       CLEAR
  123.       LOCATE 1,0
  124.       MESSAGE "CONNECTED TO PCP"
  125.       MESSAGE S1
  126.       MESSAGE "DIALING"
  127.       MESSAGE S3
  128.  
  129.  
  130.       TRANSMIT "ATZ!"
  131.       WAITFOR "OK" 10
  132.       TRANSMIT "ATDT"
  133.       TRANSMIT S4
  134.       TRANSMIT "!"
  135.       RGET S0
  136.       RGET S0 80 40
  137.       RGET S0
  138.       PAUSE 2
  139.  
  140.       FIND S0 "BUSY"
  141.       IF FOUND
  142.          CLEAR
  143.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  144.          PAUSE 2
  145.          CLEAR
  146.          LOCATE 1,0
  147.          GOTO BEGIN
  148.       ENDIF
  149.  
  150.       FIND S0 "CONNECT"
  151.       IF FOUND
  152.          SET PARITY NONE
  153.          SET DATABITS 8
  154.       ELSE
  155.          CLEAR
  156.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  157.          PAUSE 2
  158.          CLEAR
  159.          LOCATE 1,0
  160.          GOTO BEGIN
  161.       ENDIF
  162.  
  163.       ALARM 1
  164.       EXIT